﻿Imports System.ComponentModel

Public Class PolutionProp
    Inherits GPropLayer

    Public Sub New(ByVal ln As String, ByVal fn As String, ByVal lt As LAYERTYPE, ByVal bs As Boolean)
        MyBase.New(ln, fn, lt, bs)

        m_IsShowLabel = False

    End Sub



    Public Event IsShowLblChanged(ByVal Ln As String, ByVal isShow As Boolean, ByVal cl As Drawing.Color)


    Dim m_IsShowLabel As Boolean
    <CategoryAttribute("特定设置"), _
DisplayName("显示名称")> _
   Public Property IsShowLabelProperty() As Boolean
        Get
            Return m_IsShowLabel
        End Get
        Set(ByVal value As Boolean)
            m_IsShowLabel = value

            RaiseEvent IsShowLblChanged(Me.LnameProperty, m_IsShowLabel, Me.LblColorProperty)
        End Set
    End Property




End Class
